home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Languages Suite
/
ProgramD2.iso
/
T U R B O Language
/
Turbo Pascal V7.0
/
DOCDEMO.ZIP
/
INSWIN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-10-30
|
1KB
|
55 lines
{************************************************}
{ }
{ Turbo Vision 2.0 Demo }
{ Copyright (c) 1992 by Borland International }
{ }
{************************************************}
program InsWin;
uses Objects, App, Drivers, Views, Menus;
const
cmNewWin = 2000;
type
TInsApp = object(TApplication)
WinCount: Integer;
procedure HandleEvent(var Event: TEvent); virtual;
procedure InitMenuBar; virtual;
end;
procedure TInsApp.HandleEvent(var Event: TEvent);
var
R: TRect;
begin
inherited HandleEvent(Event);
if Event.What = evCommand then
begin
if Event.Command = cmNewWin then
begin
Inc(WinCount);
Desktop^.GetExtent(R);
InsertWindow(New(PWindow, Init(R, 'Test window', WinCount)));
end;
end;
end;
procedure TInsApp.InitMenuBar;
var
R: TRect;
begin
GetExtent(R);
R.B.Y := R.A.Y + 1;
MenuBar := New(PMenuBar, Init(R, NewMenu(
NewItem('~A~dd window', 'F3', kbF3, cmNewWin, hcNoContext, nil))));
end;
var
InsApp: TInsApp;
begin
InsApp.Init;
InsApp.Run;
InsApp.Done;
end.